home *** CD-ROM | disk | FTP | other *** search
/ Mac Power 1997 December / MACPOWER-1997-12.ISO.7z / MACPOWER-1997-12.ISO / MacPowerオリジナル / Edutainment World / チャンプジム for DEMO / DIR / shared.cst / 00008_Script_8 < prev    next >
Text File  |  1997-09-29  |  3KB  |  123 lines
  1. global User1,User2,User3,User4,User5
  2. global tempUser,tempCountry
  3. global REmittList,REpunchList,REsandList,REroadList,REskipList,REshadowList
  4. global mittGO,punchGO,sandGO,roadGO,skipGO,shadowGO
  5. global DAYS
  6.  
  7. on SaveResultMitt
  8.   --SetResult(tempUser,tempCountry,1,REmittList)
  9.   
  10.   -----臚ﾉgﾉ蠻[ﾉjﾉìﾉOﾇど｡ﾇ©ﾇｩﾇど｡ﾇιｻﾇ｢ﾇｩ
  11.   if min(REmittList) = "1" and max(REmittList) = "1" then
  12.     set mittGO = "SUMI"
  13.   else
  14.     set mittGO = "GO"
  15.   end if
  16.   
  17.   set USER = "User" & tempUser
  18.   set USER = value(USER)
  19.   setAt USER,5,mittGO
  20.   setAt USER,3,(the short date)
  21.   set DAYS = integer(DAYS-1)
  22.   setAt USER,11,DAYS
  23.   --SetUserInfo(tempUser,USER)
  24. end
  25.  
  26.  
  27. on SaveResultPunch
  28.   SetResult(tempUser,tempCountry,2,REpunchList)
  29.   
  30.   -----臚ﾉgﾉ蠻[ﾉjﾉìﾉOﾇど｡ﾇ©ﾇｩﾇど｡ﾇιｻﾇ｢ﾇｩ
  31.   if min(REpunchList) = "1" and max(REpunchList) = "1" then
  32.     set punchGO = "SUMI"
  33.   else
  34.     set punchGO = "GO"
  35.   end if
  36.   
  37.   set USER = "User" & tempUser
  38.   set USER = value(USER)
  39.   setAt USER,6,punchGO
  40.   setAt USER,3,(the short date)
  41.   set DAYS = integer(DAYS-1)
  42.   setAt USER,11,DAYS
  43.   SetUserInfo(tempUser,USER)
  44. end
  45.  
  46.  
  47. on SaveResultSand
  48.   SetResult(tempUser,tempCountry,3,REsandList)
  49.   
  50.   -----臚ﾉgﾉ蠻[ﾉjﾉìﾉOﾇど｡ﾇ©ﾇｩﾇど｡ﾇιｻﾇ｢ﾇｩ
  51.   if min(REsandList) = "1" and max(REsandList) = "1" then
  52.     set sandGO = "SUMI"
  53.   else
  54.     set sandGO = "GO"
  55.   end if
  56.   
  57.   set USER = "User" & tempUser
  58.   set USER = value(USER)
  59.   setAt USER,7,sandGO
  60.   setAt USER,3,(the short date)
  61.   set DAYS = integer(DAYS-1)
  62.   setAt USER,11,DAYS
  63.   SetUserInfo(tempUser,USER)
  64. end
  65.  
  66.  
  67. on SaveResultRoad
  68.   SetResult(tempUser,tempCountry,4,REroadList)
  69.   
  70.   -----臚ﾉgﾉ蠻[ﾉjﾉìﾉOﾇど｡ﾇ©ﾇｩﾇど｡ﾇιｻﾇ｢ﾇｩ
  71.   if min(REroadList) = "1" and max(REroadList) = "1" then
  72.     set roadGO = "SUMI"
  73.   else
  74.     set roadGO = "GO"
  75.   end if
  76.   
  77.   set USER = "User" & tempUser
  78.   set USER = value(USER)
  79.   setAt USER,8,roadGO
  80.   setAt USER,3,(the short date)
  81.   set DAYS = integer(DAYS-1)
  82.   setAt USER,11,DAYS
  83.   SetUserInfo(tempUser,USER)
  84. end
  85.  
  86.  
  87. on SaveResultSkip
  88.   SetResult(tempUser,tempCountry,5,REskipList)
  89.   
  90.   -----臚ﾉgﾉ蠻[ﾉjﾉìﾉOﾇど｡ﾇ©ﾇｩﾇど｡ﾇιｻﾇ｢ﾇｩ
  91.   if min(REskipList) = "1" and max(REskipList) = "1" then
  92.     set skipGO = "SUMI"
  93.   else
  94.     set skipGO = "GO"
  95.   end if
  96.   
  97.   set USER = "User" & tempUser
  98.   set USER = value(USER)
  99.   setAt USER,9,skipGO
  100.   setAt USER,3,(the short date)
  101.   set DAYS = integer(DAYS-1)
  102.   setAt USER,11,DAYS
  103.   SetUserInfo(tempUser,USER)
  104. end
  105.  
  106. on SaveResultShadow
  107.   SetResult(tempUser,tempCountry,6,REshadowList)
  108.   
  109.   -----臚ﾉgﾉ蠻[ﾉjﾉìﾉOﾇど｡ﾇ©ﾇｩﾇど｡ﾇιｻﾇ｢ﾇｩ
  110.   if min(REshadowList) = "1" and max(REshadowList) = "1" then
  111.     set shadowGO = "SUMI"
  112.   else
  113.     set shadowGO = "GO"
  114.   end if
  115.   
  116.   set USER = "User" & tempUser
  117.   set USER = value(USER)
  118.   setAt USER,10,shadowGO
  119.   setAt USER,3,(the short date)
  120.   set DAYS = integer(DAYS-1)
  121.   setAt USER,11,DAYS
  122.   SetUserInfo(tempUser,USER)
  123. end